unit sysinit ;
 
interface 
  
const
  PtrToNil :  Pointer  =  nil ;

var
  TlsIndex :  Integer  =  - 1 ;
  TlsLast :  Byte ;

     procedure _InitExe ; 
     procedure _halt0 ;

implementation

 
procedure _InitExe ;
begin


end ;
 
procedure _halt0 ; 
asm
end ;
 
end .
